COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DUP"
C00004 ENDMK
C⊗;
BEGIN "DUP"
REQUIRE "VIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
STRING FN; INTEGER I,J,K;
RDDCHN(I);
DO BEGIN OUTSTR("FILE:"); FN←INCHWL; END UNTIL PFLDIM(FN)≠0;
DDINIT;
OUTSTR(" RANDOM ON CHANNEL:");
OUTSTR(CVOS(I←GDDCHN(CVO(INCHWL)))&'15&'12);
OUTSTR("ORDERED ON CHANNEL:");
OUTSTR(CVOS(J←GDDCHN(CVO(INCHWL)))&'15&'12);
SCREEN(-1,-1,1,1);
   BEGIN
   INTEGER ARRAY P[0:PFLDIM(FN)-1];
   GETPFL(FN,P[0]);
   DRKEN; RECTAN(-1,-1,1,1);
   VIDEO(-1,-1,1,1,P[0],-1);
   FOR K←1,2,3,4,5 DO DPYUP(I);
   SHOW(I);
   DRKEN; RECTAN(-1,-1,1,1);
   VIDEO(-1,-1,1,1,P[0],-2);
   FOR K←1,2,3,4,5 DO DPYUP(J);
   SHOW(J);
   INCHWL;
   END;
END;